home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xrmvalue.t < prev    next >
Text File  |  1990-06-01  |  517b  |  14 lines
  1. (herald xrmvalue (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XRMVALUE) (CONS 'XRMVALUEPTR (MAKE-BYTEV 8)))
  3. (DEFINE (XRMVALUE-SIZE X) (MREF-INTEGER (CHK-XRMVALUEPTR X) 0))
  4. (DEFINE (XRMVALUE-SIZE! X Y) (SET-MREF-INTEGER! (CHK-XRMVALUEPTR X) 0 Y))
  5. (DEFINE (XRMVALUE-ADDR X)
  6.         ((LAMBDA (X Y) (CONS 'CHARAP (MREF-POINTER X Y)))
  7.          (CHK-XRMVALUEPTR X)
  8.          4))
  9. (DEFINE (XRMVALUE-ADDR! X Y)
  10.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-CHARAP Z)))
  11.          (CHK-XRMVALUEPTR X)
  12.          4
  13.          Y))
  14.